home *** CD-ROM | disk | FTP | other *** search
/ macdrivermuseum.net / www.macdrivermuseum.net.tar / www.macdrivermuseum.net / scanner / macvision.hqx / MacVision 2 / MacVision 2.0.rsrc / POST_501 < prev    next >
Text File  |  1988-10-10  |  670b  |  7 lines
  1. /doclip { setlinewidth newpath xpos 1 add ypos moveto xpos xsize add 1 sub ypos lineto xpos xsize add 1 sub ypos ysize add lineto xpos 1 add ypos ysize add lineto  closepath clip  }def 
  2. /doframe { setlinewidth newpath xpos ypos moveto xpos xsize add ypos lineto xpos xsize add ypos ysize add lineto xpos ypos ysize add lineto  closepath stroke  }def 
  3. /dorotate { xpos xsize 2 div add ypos ysize 2 div add translate rotate  xpos xsize 2 div add neg ypos ysize 2 div add neg translate }def
  4. /cpath { newpath xpos xsize 2 div add ypos ysize 2 div add ysize 2 div 0 360 arc } def
  5. /cframe { setlinewidth cpath stroke cpath clip } def
  6. /inverse { {1 exch sub} settransfer } def
  7.